home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / ls 7 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  714b  |  42 lines
  1. 100 rem sprite 0 bewegen + animieren
  2. 110 rem
  3. 120 rem vorbereitungen
  4. 130 rem
  5. 140 rem farben
  6. 150 poke 53280,5:poke53281,0
  7. 160 poke 53285,8:poke53286,11:poke53287,7
  8. 170 rem
  9. 180 xreg=53248:xlauf=53264
  10. 190 yreg=53249:bl=128
  11. 200 rem
  12. 210 poke53276,1:rem sprite 0 multicolor
  13. 220 poke2040,bl:rem spritezeiger auf daten
  14. 230 pokexreg,0:pokexlauf,0:pokeyreg,117:rem anfangspos.
  15. 240 poke 53269,1:rem sprite 0 an
  16. 250 gosub470:rem boden zeichnen
  17. 260 rem
  18. 270 rem sprite bewegen
  19. 280 rem
  20. 290 forx=1to350step2
  21. 300 xp=x
  22. 310 if xp<=255 then poke xlauf,0
  23. 320 if xp>255 then poke xlauf,1:xp=xp-255
  24. 330 poke xreg,xp
  25. 340 gosub400:rem animation
  26. 350 next x
  27. 360 goto230
  28. 370 rem
  29. 380 rem animation
  30. 390 rem
  31. 400 bl=bl+1
  32. 410 ifbl>135thenbl=128
  33. 420 poke2040,bl
  34. 430 return
  35. 440 rem
  36. 450 rem boden zeichnen
  37. 460 rem
  38. 470 print"[147]";
  39. 480 forw=1to40:print" ";:nextw
  40. 490 print"[146]"
  41. 500 return
  42.